inherited FrmDataDict: TFrmDataDict
  Caption = 'FrmDataDict'
  ClientHeight = 436
  ClientWidth = 786
  OnCreate = FormCreate
  ExplicitWidth = 802
  ExplicitHeight = 474
  PixelsPerInch = 96
  TextHeight = 12
  object lst1: TcxDBTreeList [0]
    Left = 0
    Top = 25
    Width = 250
    Height = 411
    Align = alLeft
    Bands = <
      item
      end>
    DataController.DataSource = dsTable
    DataController.ParentField = 'PARENTGUID'
    DataController.KeyField = 'GUID'
    DefaultRowHeight = 25
    LookAndFeel.SkinName = 'UserSkin'
    OptionsData.CancelOnExit = False
    OptionsData.Editing = False
    OptionsData.Deleting = False
    OptionsSelection.CellSelect = False
    OptionsSelection.HideFocusRect = False
    OptionsView.ColumnAutoWidth = True
    OptionsView.Headers = False
    PopupMenu = dxbrpmn1
    RootValue = -1
    TabOrder = 0
    object clnTABLENAME: TcxDBTreeListColumn
      PropertiesClassName = 'TcxTextEditProperties'
      Properties.Alignment.Vert = taVCenter
      Caption.AlignHorz = taCenter
      Caption.AlignVert = vaCenter
      Caption.Text = #34920#21517
      DataBinding.FieldName = 'TABLENAME'
      Position.ColIndex = 0
      Position.RowIndex = 0
      Position.BandIndex = 0
      Summary.FooterSummaryItems = <>
      Summary.GroupFooterSummaryItems = <>
    end
  end
  object grdField: TcxGrid [1]
    Left = 258
    Top = 25
    Width = 528
    Height = 411
    Align = alClient
    TabOrder = 5
    object grdbtblvwField: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      DataController.DataSource = dsField
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsView.GroupByBox = False
    end
    object grdlvlField: TcxGridLevel
      GridView = grdbtblvwField
    end
  end
  object cxspltr1: TcxSplitter [2]
    Left = 250
    Top = 25
    Width = 8
    Height = 411
    Control = lst1
  end
  inherited actlst1: TActionList
    OnUpdate = actlst1Update
    object actNewDir: TAction
      Category = #26641#24418#33756#21333
      Caption = #26032#22686#33410#28857
      OnExecute = actNewDirExecute
    end
    object actNewChildDir: TAction
      Category = #26641#24418#33756#21333
      Caption = #26032#22686#23376#33410#28857
      OnExecute = actNewChildDirExecute
    end
    object actNewTable: TAction
      Category = #26641#24418#33756#21333
      Caption = #26032#22686#34920
      OnExecute = actNewTableExecute
    end
    object actEditDict: TAction
      Category = #26641#24418#33756#21333
      Caption = #32534#36753#33410#28857
      OnExecute = actEditDictExecute
    end
    object actDel: TAction
      Category = #26641#24418#33756#21333
      Caption = #21024#38500#33410#28857
      OnExecute = actDelExecute
    end
  end
  object dxbrmngr1: TdxBarManager
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #24494#36719#38597#40657
    Font.Style = []
    Categories.Strings = (
      'Default'
      #25968#25454#34920#33756#21333)
    Categories.ItemsVisibles = (
      2
      2)
    Categories.Visibles = (
      True
      True)
    LookAndFeel.SkinName = 'UserSkin'
    PopupMenuLinks = <>
    Style = bmsUseLookAndFeel
    UseSystemFont = True
    Left = 376
    Top = 104
    DockControlHeights = (
      0
      0
      25
      0)
    object dxbrmngr1Bar1: TdxBar
      Caption = 'Custom'
      CaptionButtons = <>
      DockedDockingStyle = dsTop
      DockedLeft = 0
      DockedTop = 0
      DockingStyle = dsTop
      FloatLeft = 820
      FloatTop = 8
      FloatClientWidth = 0
      FloatClientHeight = 0
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ItemLinks = <>
      OneOnRow = True
      Row = 0
      UseOwnFont = True
      Visible = True
      WholeRow = True
    end
    object btnNewDir: TdxBarButton
      Action = actNewDir
      Category = 1
    end
    object btnNewChildDir: TdxBarButton
      Action = actNewChildDir
      Category = 1
    end
    object btnTable: TdxBarButton
      Action = actNewTable
      Category = 1
    end
    object btnEditDict: TdxBarButton
      Action = actEditDict
      Category = 1
    end
    object btnDelDict: TdxBarButton
      Action = actDel
      Category = 1
    end
  end
  object QryTable: TADOQuery
    Connection = DBAccess.ConMain
    CursorType = ctStatic
    OnNewRecord = QryTableNewRecord
    Parameters = <>
    SQL.Strings = (
      'select * from s_tables order by parentguid')
    Left = 136
    Top = 192
  end
  object dsTable: TDataSource
    AutoEdit = False
    DataSet = QryTable
    Left = 136
    Top = 248
  end
  object dsField: TDataSource
    DataSet = cdsField
    Left = 416
    Top = 264
  end
  object cdsField: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 368
    Top = 264
  end
  object dxbrpmn1: TdxBarPopupMenu
    BarManager = dxbrmngr1
    ItemLinks = <
      item
        Visible = True
        ItemName = 'btnNewDir'
      end
      item
        Visible = True
        ItemName = 'btnNewChildDir'
      end
      item
        Visible = True
        ItemName = 'btnTable'
      end
      item
        Visible = True
        ItemName = 'btnEditDict'
      end
      item
        Visible = True
        ItemName = 'btnDelDict'
      end>
    UseOwnFont = False
    Left = 128
    Top = 104
  end
end
